home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / SaveList.xdme < prev    next >
Text File  |  1995-07-31  |  371b  |  20 lines
  1. /* $VER: SaveList.xdme 1.0 (31 Jul 1995) */
  2. /* Saves the elements of a list to a file */
  3.  
  4. PARSE ARG list file
  5. file = STRIP(file)
  6. OPTIONS RESULTS
  7.  
  8. CALL OPEN(output,file,"W")
  9. i = 0
  10. DO FOREVER
  11.     v = "$(" || list || "/#" || i || "/*Name*)"
  12.     com = "rxresult" v
  13.     com
  14.     r = result
  15.     IF r = v THEN LEAVE
  16.     CALL WRITELN output, r
  17.     i = i + 1
  18. END
  19. CALL CLOSE output
  20.